home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / acadaskt.zip / STARTCPY.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-06-08  |  2.2 KB  |  123 lines
  1. @echo off
  2. cls
  3. :
  4. REM  allows for disk drive (C,D or E) to be chosen
  5. :
  6. bmenu 8 26 "" " Copy files to drive C:" " Copy files to drive D:" " Copy files to drive E:" " Exit to DOS"
  7. if errorlevel 3 goto exit
  8. if errorlevel 2 goto menu-e
  9. if errorlevel 1 goto menu-d
  10. if errorlevel 0 goto menu-c
  11. :exit
  12. cls
  13. goto end
  14. :menu-e
  15. cls
  16. :
  17. REM  allows for the type of files to be copied to disk drive E
  18. :
  19. :menu-e
  20. cls
  21. bmenu 8 25 "" " Copy DXF files to drive E:" " Copy SKD files to drive E:" " Copy ALL files to drive E:" " Exit to DOS"
  22. if errorlevel 3 goto exit
  23. if errorlevel 2 goto dde2
  24. if errorlevel 1 goto dde1
  25. if errorlevel 0 goto dde0
  26. :exit
  27. cls
  28. goto end
  29. :dde2
  30. cls
  31. echo Copying all files [DXF & SKD] to disk drive E
  32. copy *.DXF e:\
  33. copy *.SKD e:\
  34. cls
  35. copydn-e
  36. goto end
  37. :dde1
  38. cls
  39. echo copying [SKD] files to disk drive E
  40. copy *.SKD e:\
  41. cls
  42. copydn-e
  43. goto end
  44. :dde0
  45. cls
  46. echo Copying [DXF] files to disk drive E
  47. copy *.DXF e:\
  48. cls
  49. copydn-e
  50. goto end
  51. :menu-d
  52. cls
  53. :
  54. REM  allows for type of files to be copied to disk drive D
  55. :
  56. bmenu 8 25 "" " Copy DXF files to drive D:" " Copy SKD files to drive D:" " Copy ALL files to drive D:" " Exit to DOS"
  57.  
  58. if errorlevel 3 goto exit
  59. if errorlevel 2 goto ddd2
  60. if errorlevel 1 goto ddd1
  61. if errorlevel 0 goto ddd0
  62. :exit
  63. cls
  64. goto end
  65. :ddd2
  66. cls
  67. echo Copying all files [DXF & SKD] to disk drive D
  68. copy *.DXF d:\
  69. copy *.SKD d:\
  70. cls
  71. copydn-d
  72. goto end
  73. :ddd1
  74. cls
  75. echo Copying [SKD] files to disk drive D
  76. copy *.SKD d:\
  77. cls
  78. copydn-d
  79. goto end
  80. :ddd0
  81. cls
  82. echo Copying [DXF] files to disk drive D
  83. copy *.DXF d:\
  84. cls
  85. copydn-d
  86. goto end
  87. :menu-c
  88. cls
  89. :
  90. REM  allows the type of files to be copied to disk drive C
  91. :
  92. bmenu 8 25 "" " Copy DXF files to drive C:" " Copy SKD files to drive C:" " Copy ALL files to drive C:" " Exit to DOS"
  93. if errorlevel 3 goto exit
  94. if errorlevel 2 goto ddc2
  95. if errorlevel 1 goto ddc1
  96. if errorlevel 0 goto ddc0
  97. :exit
  98. cls
  99. goto end
  100. :ddc2
  101. cls
  102. echo Copying all files [DXF & SKD] to disk drive C
  103. copy *.DXF c:\
  104. copy *.SKD c:\
  105. cls
  106. copydn-c
  107. goto end
  108. :ddc1
  109. cls
  110. echo Copying [SKD] files to disk drive C
  111. copy *.SKD c:\
  112. cls
  113. copydn-c
  114. goto end
  115. :ddc0
  116. cls
  117. echo Copying [DXF] files to disk drive C
  118. copy *.DXF c:\
  119. cls
  120. copydn-c
  121. cls
  122. :end
  123.